#1
caixeta <-read.csv("caixeta.csv", as.is=TRUE)
caixeta
head(caixeta)
dap<-caixeta$cap/pi
dap
hist(dap)

#2
local<-caixeta$local
arvore<-caixeta$arvore
altura<- caixeta$h
altura
tamanho<-data.frame(local, arvore, altura)
id<-unique(tamanho)
id
length(id)

histogram(~altura|local, data=tamanho)

#3
#Aparentemente as diferenaas entre estruturas dos caxeitais soo pequenas. 

